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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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PPPPPPPP AAAAAA SSSSSSSS_ LL 000000 000000 KK KK AAAAAA HH HH 
PPPPPPP?P AAAAAA SSSSSSSS_ LL 000000 000000 KK KK AAAAAA HH HH 
PP PP AA AA SS LL 00 00 00 OO KK KK AA AA HH HH 
PP PP AA AA SS LL 00 00 00 OO KK KK AA AA HH HH 
PP PP AA AA SS LL 00 00 00 OO KK KK AA AA HH HH 
PP PP AA AA SS LL 00 00 00 OO KK KK AA AA HH HH 
PPPPPPPP oh AA SSSSSS LL 00 00 00 OO KKKKKK AA AA HHHHHHHHHH 
PPPPPPPP Aa AA SSSSSS LL 00 00 00 OO KKKKKK AA AA HHHHHHHHHH 
PP AAAAAAAAAA SS UL 00 00 00 OO KK KK AAAAAAAAAA HH HH 
PP AAAAAAAAAA SS UL 00 00 00 OO KK KK AAAAAAAAAA HH HH 
PP bb a8 SS LL 00 00 00 OO KK KK AA AA HH HH 
PP AB 4b SS LL 00 00 00 00 KK KK AA AA HH HH 
PP Ab AA SSSSSSSS LLLLLLLLLL 000000 000000 Kk KK AA AA HH HH 
PP ad AA SSSSSSSS LLLLLLLLLL 000000 000000 KK KK AA AA HH HH 
LL II1111 SSSSSSSS 
LL H111] SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLLLLLLLLL 11111 SSSSSSSS 
LLLLLLLLLL 11111 SSSSSSSS 
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i 4 | 
$ 4 

3 5 5 5 : 
ae, 0OF 
3 809 
, 8090 1 
3 1} pot) : 
3 18 tk 1 
3 14 boy 1 
: 15 015 1 
; po18 1 
; 17 001 1 
; 18 0018 1 
3 19 0019 1 
; 2 0020 1 
ae 4 0021 1 
; $§ Bos¢ 1 
= - 0023 1 
; $e 0024 1 
3 5 0025 1 
; «& 0026 1 
aa ht 1 
; @ 0028 1 
; 9 594 1 
5 0 0030 1 
3 1 0031 1 
; 3 OO 1 
3 3 0033 1 
.: 0034 1 
a 0035 1 
; 0036 1 
2. ar 0037 1 
3 $3 0038 1 
s 9 0039 1 
: 40 0040 1 
3 41 0041 1 
;  ¢€2 0042 1 
3 65 00435 1 
; 646 0044 1 
oe an 0045 1 
: 46 0046 1 
: 67 0047 1 
; | «648 0048 1 
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MODULE PASSLOOK_AHEAD ( Eat "Resolve begyrlookshesd 
fDENT = '1-002' ! File: PASLOOKAH.B32 Edit: SBL1002 
= 
BEGIN 


-32 v4.0 
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'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY O 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
Saanseehatee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HE 
* *. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NO 
~ erepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIP 
:* . 


t= DIGITAL ASSUMES NO RESPONS } 


IBILITY FOR THE USE OR RELIABILITY OF 
!# SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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FACILITY: Pascal Language Support 

ABSTRACT: 
This procedure is called by the compiled code when a textfile 
file buffer is undefined. If lazy-lookahead is in progress 
for that file, it gets the next record and returns. 

ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

MODIFIED BY: 

1-001 = Original. SBL 1-April-1981 


1-002 - Look at the new FCBSV_INITIATE_PROMPT to see if PASSS$PROMPT 
should be called. SBC 15-Dec-1982 
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1805 Declarations 14-Sep-19 4 93:89:33 PASRTL SRE SPASLOOKAN B82: 1 ’ 


; ° 6 } TSBTTL *Declarations’ 

; § 1 ! PROLOGUE DEFINITIONS: 

3 1! 

; 4 0 j 1 

3 ? tr : REQUIRE "RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
5 3} 119 .% 

; 8 120 1 ! TABLE OF CONTENTS: 

Lk ae 0121 1! 

; & 1 § 1 

; 61 1 1 FORWARD ROUTINE 

3. CG 126 (1 PASSLOOK AHEAD: CALL_SAVEALL NOVALUE, ! Resolve lazy-lookahead 
3 a7 4, 5 : PASSS$LOOR_AHEAD: JSB_LOOK_AHEAD NOVALUE; ! Internally callable 
:- & 01 5 1} 

: 66 0128 1 ! MACROS: 

A or 0129 1! 

; 668 0130 1! NONE 

; & 0131 1! 

; 01 ; 1 ! EQUATED SYMBOLS: 

ri) ae 4 1! 

i. 2 134 1! NONE 

ee . O135 3? 

; 676 0136 1 ! FIELDS: 

; ££ 0137 1! 

; 0138 1! NONE 

oi: ae 0139 1! 

:; wo 0140 1 ! OWN STORAGE: 

Toe. 0141 1! 

; 80 8146 1! NONE 

; (BI 0143 1! 


—_————— 
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PASSLOOK_AHEAD Resolve lazy-lookahead 16-Sep-1984 01:44:39 AX-11 Bliss-32 V4.0-74 Page 3 
w ARS PASSLOOK_ AA AD = Resolve lazy lookahead 12=808=1 382 03:84:38 PASRTL. RCIPASLOOKAH.B 2;1 . (3) 
3 3 144 1 ZSBTTL "PASSLOOK_AHEAD = Resolve lazy lookahead’ 

: 4 145 1 GLOBAL ROUTINE PASS1 00K AHEAD ' Resolve tazy lookahead 
3 5 128 1 PFV: REF SPASS$PFV FILE_VARIABLE ' File variable 

3 § 16 ! ): CALL SAVEALL NOVALOE = 

; bs 128 1 lee 

: 34 ; ? : FUNCTIONAL DESCRIPTION: 

: 91 1 § 1! PASSLOOKAHEAD is to be called if a textfile file buffer is 

; 36 1 1! undefined (PFVSV_DFB clear) and the caller wishes to access 

3 3? ; 3 : the file buffer.” See PAS$$LOOK_AHEAD for more information. 

s 136 1 ! CALLING SEQUENCE: 

; 0157 1! 

3 97 0158 1! CALL PASSLOOK_AHEAD (PFV.mr.r) 

; 0159 1! 

; G9 160 1 ! FORMAL PARAMETERS: 

; 100 161 1! 

; 101 16¢ 1} PFV - The Pascal File Variable (PFV) passed by reference. 
° 198 B17 : The structure of the PFV is defined in PASPFV.REQ. 
; 104 3193 1 ! IMPLICIT INPUTS: 

: 105 166 1! 

; 106 0167 1! NONE 

3; 107 0168 1! 

; 108 319? 1 ! IMPLICIT OUTPUTS: 

; 109 0170 1! 

: 110 0171 1! NONE 

s 111 bis 7% 

3 ig 017 1 ! ROUTINE VALUE: 

ay 0174 1! 

: 116 0175 1! NONE 

3 «115 0176 1! 

; 116 0177 1°! SIDE EFFECTS: 

: #117 0178 1! 

; 118 0179 1! See PASSS$LOOK_AHEAD 

; #119 0180 1! 

s 120 0181 1 ! SIGNALLED ERRORS: 

3; 121 b 158 1! 

; 122 0183 1! 

; 123 0184 1 !-- 

3; 126 0185 1 

s 125 0186 BEGIN 

; 1¢6 gis 

a See 188 LOCAL B 

: 128 0189 2 FCB: REF SPASSFCB_CONTROL_BLOCK, ' File control block 
: 129 0190 2 PFV_ADDR: VOLATILE, ' Enable argument 
: ! 0 a : UNWIND_ACT: VOLATILE; ! Enable argument 
: 136 orgs NABLE 

0194 2 PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT); 

: 134 B192 

: 135 196 '¢ 

; 136 0197 ! Set enable argument for PFV address. 

3 137 0198 '- 

: 138 0199 

; 190 0200 2 PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 
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8803 PASSLOOK_AH AD = Resolve lazy lookahead 14- 73007 382 13:84:39 PASRTL. BSR C PASLOGKAN. 5 2;1 ° ( 
; 160 01 
3; «(141 § '¢ 
: 108 ' Validate and lock PFV 
: 16 4 le 
; 144 0205 
: 165 0 BS PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 
; 146 020 
3; «(1467 0208 '¢ 
: 148 8 09 ! Set unwind action to unlock file. 
:; #149 10 !- 
s 150 0211 
: 12) 8 \¢ UNWIND_ACT = PASSK_UNWIND_UNLOCK; 
; 1 ¢ 1 
» %5 0214 '¢ 
3; «(154 0215 ! Call PASS$LOOK_AHEAD to do the work. 
we ME 
3 13f 8 \8 PASS$SLOOK_AHEAD (PFV CPFVS$R_PFVJ, FCB CFCBSR_FCBI; FCB); 
3; «6159 0220 5 '¢ 
; 160 bssi 2 ! Unlock file and return. 
: 161 02 ¢ l= 
: 162 022 
; 163 0224 PFV CPFV$V_LOCK) = 0; 
: 164 0225 
3s 165 0226 2 RETURN; 
: 166 0227 2 
3; 167 0228 1 END; ! End of routine PAS$LOOK_AHEAD 
-TITLE PASSLOOK_AHEAD Resolve lazy-lookahead 
~IDENT \1-002\ 
~EXTRN PASS$LOOK erty PASS$$LOOK_AHEAD 
-EXTRN PAS$$10_AANDLER 
~EXTRN PASSSVACIDATE _PFV 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
OOCF 00000 «ENTRY PASS$LOOK_AHEAD, Save RO,R1,R2,R3,R6,R7 P 
5E 04 C2 00002 SUBL2 -_SP : 
7E 04 00005 CLRL UNWIND_ACT ; 
04 AE D4 00007 CLRL V_ADBR ; 
6D 001B CF 3 QO00A MOVAL 1$, (FP) 3 
56 04 AC DO QO00F MOVL R6 r 
04 AE 56 DO 00013 MOVL R6, PFV ; 
000000006 00 16 00017 JSB PASSSVACIDATE PFV : 
6E 01 be 00010 MOVL #i, ND_AC j 
0000v 30 00020 BSBW PASS$LOOK RHE AD F 
07 Ab 80 8F 8A 00023 BICB2 #128, 7(R6) 3 
04 00028 RET : 
0000 00029 1$: -WORD Save nothing : 
50 08 AC 00 00028 MOVL 8(AP), RO ; 
50 04 AO DO 0002F MOVL 4(RO), RO 3 
F8 AO 9F 00033 PUSHAB UNWIND ACT : 
FC AO 9F 00036 PUSHAB PFV_ADBR 3 
02 DD 00039 PUSHL #2 ; 


v 
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; Routine Size: 


pose 
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lve lLazy-lookahead 
SSLOOK_AHEAD = Resolve lazy lookahead 


ait: 


bytes, Routine Base: _PASSCODE + 0000 


a6 
000000006 0 


1 
1 !<BLF/PAGE> 


1 


< 19 
eo- 
at 19 


Be 92:51:35 EBASrTLS 
PUSHL §P 
mova. (AP) 
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CALLS “3, pAsssi0 “HANDLER 


V4.0-74 
LOOKAH.B52;1 


Page 


BeBe Se Be 


s| 
(3). 


Ps 


+ amet elated Resolve hazy pokehead 16-Sep-1984 4:66:93 AX-11 Bliss-32 V4.0-74 Page 6) 
1- PASSSLOOK_AHEAD = Internally callable procedure 14-Sep-1984 12:51:39 PASRTL.SRCJPASLOOKAH.B32;1 (4) | 


; 7 0231 1 XSBTTL "PASSSLOOK_AHEAD = Internally callable procedure’ 

3 76 0 ¢ 1 GLOBAL ROUTINE PASSS$LOUK AHEAD ( ! Resolve hazy lookahead 
; W 0 1 PFV: REF S$PASSPFU_FILE_ VARIABLE ' File variable 

: «174 0234 1 IN_FCB: REF S$PASSFCB CONTROL BLOCK; ' Control block 

; #175 0235 1 FCB: REF $PASS$FCB_CONTROL_BLOCK ' Output FCB 

; 176 0236 1 ): JSB_LOOK_AHEAD NOVALUE = 

s W777 0237 1 

: #178 0 3 1 +4 

; 12? 3 is : FUNCTIONAL DESCRIPTION: 

: 181 0241 1! PASSS$LOOK_AHEAD is to be called if a textfile file buffer is 
3 186 psig 1! undefined (PFVSV_DFB clear) and the caller wishes to access 
: ty OSez : the file buffer. The following steps are taken. 

> «185 0245 1! 1. If the file is open, and FCB$V_LAZY is clear, 

: «186 0246 1! return, 

; «187 0247 1! 2. If the file is not open and is not INPUT or OUTPUT, 
; 188 0248 1! return, 

> 189 0249 1! 3. If the file is not open, and is INPUT or OUTPUT, 
; 190 0250 1! open it. . 

: «(191 0251 1! 4. If FCBSV_LAZY is set, then: 

: 136 BS2¢ 1! - If file is enabled for prompt ing. output 

; 19 0255 1! artial Lines on all enabled files. 

: 194 0254 1! - Do the $GET from the file. 

3 395 0255 1! - Clear FCBS$V_LAZY, set PFVSV_EOLN, PFVSV_EOF_DEFINED, 
> 196 0256 1! PFV$V_DFB, PFV$V_VALID as appropriate. 

: 197 0257 1! 

; 198 0258 1 ! CALLING SEQUENCE: 

3; 199 0259 1! 

: 200 0260 1! JSB_LOOK_AHEAD PASS$LOOK_AHEAD (PFV.mr.r, IN_FCB.mr.r; 

: 201 0261 1! mer 

3 coe pse¢ 1! 

: os 026 1 ! FORMAL PARAMETERS: 

; 204 0264 1! ; ; - 
; 205 0265 1! PFV - The Pascal File Variable (PFV) for the file. 
: 206 0266 1! ; ‘ 

, aor 0267 1! IN_FCB - The File Control Block (FCB) for the file. 
: 208 0268 1! : 

; 209 0269 1! FCB - The result FCB for the file. 

: 210 0270 1! 

; 2 0271 1 ! IMPLICIT INPUTS: 

: 212 ose 1! 

: 213 0273 1! It is assumed that the caller has verified the PFV and has locked 
3 216 0274 1! it. 

; 215 0275 1! 

; e 0276 1 ! IMPLICIT OUTPUTS: 

: ay 0277 1! 

; ew 0278 1! NONE 

: ey 0279 1! 

3: 220 0280 1 ! COMPLETION STATUS: 

s del 0281 1! 

; $56 aSe6 1! NONE 

3 $$ 0283 1! 

: 226 0284 1 ! SIDE EFFECTS: 

3 $$? 0285 1! 

s ee 0286 1! NONE 

. gar 0287 1! 
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1-00 PASSSLOOK_AHEAD = Internally callable procedure 14-Sep-1984 12:51:39 PASRTL.SRC IPASLOOKAH.B 2;1 
; 228 0288 1 ! SIGNALLED ERRORS: 
; 5 G 0289 1! 
; 0 0290 1! 
; § 1 0291 1 !-- 
3 ¢ 0 3 1 
; ¢ 029 BEGIN 
3 § 4 0294 
: 5 8532 LOCAL 
; 2 0296 STATUS; 
3. gor 0297 2. 
; 238 0298 2’ BIND : 
s ¢3y 444 § RAB = FCB: REF BLOCK C, BYTE]; ! RAB is also FCB address 
: 240 0300 
; 241 0301 2 BUILTIN 
; 242 a4 2 TESTBITSC; 
> 243 0303 2 
. sie 0304 2 FCB = IN_FCB CFCBS$R_FCBI; ! Set output FCB 
: 245 0305 2 
; 246 0306 2 + 
: 247 0307 2 ! See if the file is open. If not, but is INPUT or OUTPUT, open it. 
: 248 0308 2 ! Otherwise, return. 
3; 249 0309 2 - 
; 2 0310 2 
3: gol 0311 2 IF NOT .PFV CPFV$V_OPEN] ! Not open 
:. gee 0312 2 THEN 
s 299 0313 3 BEGIN 
: 254 0314 3 PASSSOPEN_IMPLICIT (PFV_CPFVS$R_PFV], FCB CFCBSR_FCBIJ; FCB); 
gs 255 0315 3 _ IF_NOT .PFV CPFV$V_OPEN] ! Still not open? 
s; 2 0316 3 THEN 
3 gor 0317 3 RETURN; 
; 258 0318 2 END; 
; 259 0319 2 
; 260 0320 2 . . 
; 261 0321 2 ! Indicate that buffer access is valid. 
: 262 0322 2 !- 
: 263 0325 2 
: 264 0324 2 PFV CPFVSV_EOF DEFINED] = 1; 
; 265 0325 2 PFV CPFVS$V_VALIDJ = 1; 
: 266 0326 2 
: 267 0327 2 + ; : 
: 268 0328 2 ! Is lazy lookahead in progress on this file? 
: 269 ti 2 = 
: 270 0330 2 
s ey 0331 IF TESTBITSC (FCB CFCB$V_LAZY]) 
s @fe 0332 THE 
3; ef 0333 BEGIN 
: 274 0334 
3 af 0335 '¢ : cal ; ? 
: 276 0336 ! If EOF is true or if this is a string file (READV), 
: 144 0337 ! signal ‘GET after end-of-file’’. 
; 278 0338 !e 
: 279 0339 
4 $o0 tok IF .FCB CFCBSV_EOF] OR .FCB CFCBSV_STRING) 
; $8 0342 SPASSIO_ERROR (PAS$_GETAFTEOF,0); 
s 285 034 
3; «284 0344 '¢ 
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PASSSLOOK_AHEAD - rorentiy callable procedure 14-Sep-1984 


1: 
2:51 PASRTL.SRC PASLOOKAN, fe 2;1 


85 4 : bezy. lookahead is in progress. 

86 4 ! If this file can initiate prompting, prompt on all enabled files. 
see 4 ' Then do the $GET. 

88 34 le 
289 $e 
344 32 IF_.FCB CFCBSV_INITIATE_PROMPT) 
$36 32 PASSSPROMPT_ALL (); 
294 35 STATUS = $PASSRMS_OP ($GET (RAB=.RAB)); 

295 35 
296 22 '+ ; 
297 5 i Set * record pointers and move first character to user's 
soe $2 file buffer. Do this before we check for errors. 
300 36 

301 36 FCB CFCBSA_RECORD_BEG] = .RAB CRABSL_RBFI; 

302 36 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_BEG); 

303 36 FCB pF CBSL RECORD _LENY = .RAB CRABSW_RSZJ; 

304 36 FCB CFCBSA_RECORD_ENDJ = .FCB CFCBSA_RECORD_BEG] + .FCB CFCBSL_RECORD_LEN); 
305 36 IF .RAB CRAB$W_RSZ7) EQL 0 

306 36 THEN 
307 36 BEG! 

308 36 PFV TPEVSV_E OLN) = 

0 38 piace (nes "> pry CPFVS$A_BUFFER]); 


BEGIN 
PFV CPFV$V_EOLN] 
a (7.FCB cr cBéA -RECORD_CUR], .PFV CPFVSA_BUFFER)); 


IF NOT .STATUS 
THEN 
BEGIN 


"scer failed. If RMS$_EOF, simply set EOF. Otherwise 
z signal an error. 


iF RAB CRABSL_STS] NEQ RMS$_EOF 
$PAS$IO ERROR (PAS$_ERRDURGET); ! Error during GET 


WWINIAIWAIRINRIPINININININININD 2 2 OO Oe es 
=O ODWNOAUE WN 0 ODNOUE WN "OO ONOU EWN O0 


FCB CFCB$V_EOF] = iF 
PFV CPFV$V~ ~pFB) = 
PFV CPFV$VEOLN) = %, 
END 
ELSE 
BEG! 
FCB CFCB$V_EOF] = 0; 
PFV CPFV$V~DFB] = 1; 
3 FCB FCBS$L-RECORD_NUMBER] = .FCB CFCBS$L_RECORD_NUMBER] + 1; 
END; 
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RETURN; 
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PASRTL.SRCJPASLOOKAH.B32; 1 
IT 
$K_GETAF TEOF 


$K_ERRDURGET 


ALL 


AL, PA 
$ 


XTRN PASSSPROMPT 
XTRN SYS$GET, PA 


A6 YE 00000 PASS$$LOOK_AHEAD:: 


AX=1 


-EXTRN PASSSOPEN_IMPLI 
«EXTRN PASS$SSIGN 


E 
E 
-E 
-E 


! End of routine PAS$$LOOK_AHEAD 
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EAD = Internally callable procedure 
53 
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PASSL OOK. AHEAD Resolve ihe lookahead 
1-00 PASS$S$LOOK_AHE 


; Routine Size: 182 bytes, Routine Base: 


Se 
AD - Seternetia callable procedure 12-288 


05 00085 


PASSCODE + 0049 


1986 42 


$4338 Ax-11 oF ss-32 V Page 10 
PASRTL.SRCJIP ASL boKAN. iy 2;1 (4) 


RSB ; 0403 


: 344 0404 1 

; 345 0405 1 !<BLF/PAGE> 

; 346 0406 1 END ! End of module PAS$LOOK_AHEAD 

; 34? 0407 1 

; 348 0408 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

; PASSCODE 255 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 

Pe ae ee cet Be Syabe|(s ecoceoe= Pages Processing 

; File Total Loaded Percent Mapped Time 

i _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 9 0 581 00:01.0 

; _$255$DUA28:CPASRTL.OBJIJPASL Tact 3231 427 96 22 33 00:00.4 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:PASLOOKAH/0BJ=08J$ : PASLOOKAH MSRC$:PASLOOKAH/UPDATE=(ENH$:PASLOOKAH 


Run 708. 
fleece?” Time: 09:¢5°6 
Lines/CPU Min: 079 
ponenee eres 17094 
"Y Used: 112 pages 
wee ation Complete 


Size: 255 code 3 0 data bytes 


ENT CORPORATION 
ND PROPRIETARY | 


099 VAx/vMS V4.0 


